home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 85xx / 8510.d64 / cursus latinus (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  16KB  |  619 lines
  1. 10 DIMMN$(12),WO$(99,6),WO(99),WT$(10,10)
  2. 100 REM ************************
  3. 110 REM *                      *
  4. 120 REM *  - CURSUS LATINUS -  *
  5. 130 REM *                      *
  6. 140 REM *    (C) MAERZ 1985    *
  7. 150 REM *                      *
  8. 160 REM *  BERND KRAUS         *
  9. 170 REM *  AM WALDSCHWIMMBAD 2 *
  10. 180 REM *  6909 WALLDORF/BD.   *
  11. 190 REM *  TEL.: 06227/2982    *
  12. 200 REM *                      *
  13. 210 REM *  FUER C=64 + C=1541  *
  14. 220 REM *  EVTL. MPS 801       *
  15. 230 REM *                      *
  16. 240 REM ************************
  17. 250 :
  18. 260 REM **
  19. 270 REM ** VARIABLEN
  20. 280 REM **
  21. 290 :
  22. 300 PRINT"[147]";:POKE53280,6:POKE53281,6
  23. 310 T1$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  24. 320 T2$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  25. 330 T3$="[221][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][221]"
  26. 340 T4$="[221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][221]"
  27. 350 T5$="[221][221]                                    [221][221]"
  28. 360 T6$="[221][176][192][192][192][192][192][192][192][192][192][192][192][174][176][192][192][192][192][192][192][192][192][174][176][192][192][174][176][192][192][178][192][192][192][192][192][192][174][221]"
  29. 370 T7$="[221][221][160][160][160][160][160][160][160][160][160][160][160][221][221][160][160][160][160][160][160][160][160][221][221][160][160][221][221][160][160][221][160][160][160][160][160][160][221][221]"
  30. 380 T8$="[221][173][192][192][192][192][192][192][192][192][192][192][192][189][173][192][192][192][192][192][192][192][192][189][173][192][192][189][173][192][192][177][192][192][192][192][192][192][189][221]"
  31. 390 T9$="[221][176][192][192][192][192][192][192][192][192][192][192][192][174][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][221]"
  32. 400 TA$="[221][221][160][160][160][160][160][160][160][160][160][160][160][221][221][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][221][221]"
  33. 410 TB$="[221][173][192][192][192][192][192][192][192][192][192][192][192][189][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][221]"
  34. 420 TC$="[221][176][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][174][176][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][174][221]"
  35. 430 TD$="[221][221]   [155]RICHTIG   [221]   [221][221]   [221]   [155]FALSCH    [221][221]"
  36. 440 TE$="[221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][189][173][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][189][221]"
  37. 450 TF$="[221][176][192][192][192][192][192][192][192][192][192][192][192][174][176][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][174][221]"
  38. 460 TG$="[221][221][155][215]ORTART    [221][221][154][206]OM[221][154][193]DJ[221][154][193]DV[221][154][214]ER[221][154][196]EP[221][154][211]EM[221][221]"
  39. 470 TH$="[221][173][192][192][192][192][192][192][192][192][192][192][192][189][173][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][189][221]"
  40. 480 TJ$="[221][176][192][192][174][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][221]"
  41. 490 TK$="[221][221][160][160][221][221][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][221][221]"
  42. 500 TL$="[221][173][192][192][189][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][221]"
  43. 510 TM$="[221]                                      [221]"
  44. 520 TN$="[221][171][192][192][192][192][192][192][192][192][192][192][192][179][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221]"
  45. 530 TU$="[221][176][192][192][192][192][192][192][192][192][192][192][192][174]             [176][192][192][192][174][176][192][192][192][192][192][174][221]"
  46. 540 TP$="[221][221][160][160][155]RICHTIG[160][160][221][160][160][160][160][160][160][160][160][160][160][160][160][160][221][160][160][160][221][221][160][160][160][160][160][221][221]"
  47. 550 TQ$="[221][221]  [155]FALSCH   [221][160][160][160][160][160][160][160][160][160][160][160][160][160][221][160][160][160][221][221][160][160][160][160][160][221][221]"
  48. 560 TR$="[221][173][192][192][192][192][192][192][192][192][192][192][192][189][160][160][160][160][160][160][160][160][160][160][160][160][160][173][192][192][192][189][173][192][192][192][192][192][189][221]"
  49. 570 TT$="[221][221][155][193]BFRAGEN                    [197]RGEBNIS[221][221]"
  50. 580 WT$(1,0)="[206]OMEN":WT$(1,1)="[215]ORT":WT$(1,2)="[199]ENETIV":WT$(1,3)="[199]ENUS"
  51. 590 WT$(1,4)="[194]EDEUTUNG 1":WT$(1,5)="[194]EDEUTUNG 2":WT$(1,6)="[194]EDEUTUNG 3"
  52. 600 WT$(2,0)="[193]DJEKTIV":WT$(2,1)="[215]ORT":WT$(2,2)="[198]EMININ":WT$(2,3)="[206]EUTRUM"
  53. 610 WT$(3,0)="[193]DVERB":WT$(3,1)="[215]ORT"
  54. 620 WT$(4,0)="[214]ERB":WT$(4,1)="[215]ORT":WT$(4,2)="[211]TAMMFORM 1"
  55. 630 WT$(4,3)="[211]TAMMFORM 2":WT$(4,4)="[211]TAMMFORM 3":WT$(4,5)=WT$(1,4)
  56. 640 WT$(4,6)=WT$(1,5):WT$(5,0)="[196]EPONENS":WT$(5,1)="[215]ORT":WT$(5,2)=WT$(4,2)
  57. 650 WT$(5,3)=WT$(4,3):WT$(6,0)="[211]EMIDEP.":FORI=1TO3:WT$(6,I)=WT$(5,I):NEXT
  58. 660 FORI=2TO6:IFI=4THEN680
  59. 670 WT$(I,4)=WT$(1,4):WT$(I,5)=WT$(1,5):WT$(I,6)=WT$(1,6)
  60. 680 NEXT
  61. 700 MN$(1)="[200][193][213][208][212][205][197][206][213][197]":MN$(2)="[197]DITIEREN":MN$(3)="[193]BFRAGEN":MN$(4)="[196]ISKETTE"
  62. 710 MN$(5)="[196]RUCKEN":MN$(6)="[197]NDE":MN$(7)="[197]INGABE":MN$(8)="[214]ERBESSERN"
  63. 720 MN$(9)="[204]OESCHEN":MN$(10)="[197]INFUEGEN":MN$(11)="[204]ADEN":MN$(12)="[211]PEICHERN"
  64. 730 DD$=""
  65. 740 FF$(0)="  ":FF$(1)="[154]F1[155]":FF$(2)="[154]F3[155]":FF$(3)="[154]F5[155]":FF$(4)="[154]F7[155]"
  66. 750 FF$(5)="[154]F8[155]":NR=0:NR$="00":IN$="00"
  67. 760 LL$="":FORI=1TO36:LL$=LL$+" ":NEXT:LL$=LL$+"":FORI=1TO36
  68. 770 LL$=LL$+" ":NEXT:BA=53265:SI=54272:POKESI+24,15
  69. 780 WA$(1)="([206]OM.)":WA$(2)="([193]DJ.)":WA$(3)="([193]DV.)":WA$(4)="([214]ERB)"
  70. 790 WA$(5)="([196]EP.)":WA$(6)="([211]EM.)"
  71. 800 FORI=1TO80:SP$=SP$+"[192]":NEXT
  72. 810 :
  73. 820 :
  74. 830 REM **
  75. 840 REM ** HAUPTMENUE
  76. 850 REM **
  77. 860 :
  78. 870 POKEBA,11
  79. 880 PRINT"[147]";T1$T3$T5$T5$T4$T3$T5$T4$;:FORI=1TO5:PRINTTJ$TK$TL$;:NEXT
  80. 890 PRINTTM$T2$;:POKE2023,125
  81. 900 PRINT"[155]";:FORI=1TO6
  82. 910 PRINTLEFT$(DD$,4+I*3);
  83. 920 PRINTSPC(2);FF$(I-1);SPC(34-LEN(MN$(I)));MN$(I);:NEXT
  84. 930 PRINT"           [195][213][210][211][213][211][160][204][193][212][201][206][213][211]"
  85. 940 PRINT"[145][155]      VON [194]ERND [203]RAUS ([195]) 1985":POKEBA,27
  86. 950 GETA$:IFA$=""THEN950
  87. 960 IFA$="[133]"THEN1040
  88. 970 IFA$="[134]"THEN2490
  89. 980 IFA$="[135]"THEN3760
  90. 990 IFA$="[136]"THEN4670
  91. 1000 IFA$="[140]"THENPRINT"[147]";:END
  92. 1010 GOTO940
  93. 1020 :
  94. 1030 :
  95. 1040 REM **
  96. 1050 REM ** EDITIEREN
  97. 1060 REM **
  98. 1070 :
  99. 1080 POKEBA,11
  100. 1090 PRINT"[147]";T1$T3$T5$T5$T4$T6$T7$T8$T9$;:FORI=1TO5:PRINTTA$TN$;:NEXT
  101. 1100 PRINTTA$TB$TF$TG$TH$T2$;:POKE2023,125:WX=NR:GOSUB5440:NR$=WX$:PRINT"[155]";
  102. 1110 PRINTLEFT$(DD$,7)""MN$(2)"  "TAB(25)NR$TAB(29)IN$TAB(32)WO$(NR,0)
  103. 1120 PRINTLEFT$(DD$,7)SPC(15)WT$(WO(NR),0):FORI=1TO6
  104. 1130 PRINTLEFT$(DD$,8+2*I)""WT$(WO(NR),I):PR